ccccccccccce Lk IIIIII11 UUU UUU TTTTTTTTTTTTTTT CLt 
cccccccccccc LLL III1I111 UUU UUU TTTTTTTTTTTTTTT LLet 
cceccccccccce =k HII UUU UUU TITTTTTTITTTITTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] U UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I}] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL IJ] UUU UUU TTT LLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LELLLLLELLLELLLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HIIIII11 UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
CCCCCCCCCCCC LLLLLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 


**F ILE®*1D**CHRSUB 
' 

CCCCCCCC HH HH RRRRRRRR SSSSSSSS UU UU 6888888868 
CCCCCCCC HH HH RRRRRRRR SSSSSSSS UU UU BBBBBBBB 

cc HH HH RR RR SS UU UU 6B 

cc HH HH RR RR SS UU UU BB BB 

cc HH HH RR RR SS UU UU BB BB 

cc HH HH RR RR SS UU UU 6B 

cc HHHHHHHHHH RRRRRRRR SSSSSS UU UU BBBBBBBB 

cc HHHHHHHHHH RRRRRRRR $SSSSS UU UU BBBBBBBB 

cc HH HH RR RR SS UU UU 6B BB 

cc HH HH RR RR $$ UU UU BB BB 

cc HH HH RR Eke SS UU UU 6B BB sees 

cc HH HH RR RR SS UU UU 6B BB eees 
CCCCCCCC HH HH RR RR SSSSSSSS UUUUUUUUUU BBBBBS8BB ones 
CCCCCCCC HH HH RR RR SSSSSSSS UUUUUUUUUU B8BBBBBBB seee 

LL III] SSSSSSSS 

LL I1till SSSSSSSS 

LL il $s 

LL II Ss 

LL II SS 

LL II $S° 

LL II SSSSSS 

LL I] SSSSSS 

LL II SS 

LL II SS 

LL II SS 

LL II $s 

LLLLLLLLLL III SSSSSSSS 

LLLELLLLLLL HI11I SSSSSSSS 
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INCLUSION OF THe ABOVE Spi th ad NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
THER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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NAME IS THE SYMBOLIC NAME SUFFIX TO ‘‘CHRSK_"' FOR THE CHAR 
CHR IS THE ASCII CHAR. 


»MACRO CHAR so 


44 .SBTTL DECLARATIONS 
4g : INCLUDE FILES: 
47 ; 
¢5 

p + MACROS: 

¢ $ MACRO TO GENERATE AN ENTRY IN THE CHARACTER CLASSIFICATION TABLE 
4: CALL: 

5: CHAR NAME, CHR 

§ : WHERE: 
60 © 
6} 
$8 
64 


SoOSOSCSOSOOSOSOOOSOSOSOOOOOOOOSOSOSOSOSoOS 
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SSSSSSSSSSSSSSSSSSSSSSS3S3S3S3SS3S3S3S3S 2 
SOoSoSooooooooooooooooooooosoo 


65; 
6 : EQUATED SYMBOLS: 
68 : DEFINE SPECIAL SYMBOLS FOR ALPHA/NUMERIC SETS 
00000001 3 CHRSK_ALPHA == 1 
00000002 0 4 CHRSK-NUMERIC == 2 
0 i ; 
9 f ; OWN STORAGE: 
0000 0 i: ; -PSECT _PURE RD,NOWRT,BYTE 
0 78 CHRTBL: 
0 7 CHAR SLASH </> 12 
0 80 CHAR = SEMI > 11 
0 81 CHAR ~—LBRAKT <b 10 
00 : CHAR RAKT <J> 9 
0 8 CHAR COMMA <,> 8 
00 4 CHAR DOT <.> 
5 CHAR COLON <:> g 
6 CHAR BLA <> 
CHAR DOL <$> 4 
8 CHAR UNDRSCR <> 3 
00 00 .BYTE 0,0 : EOL AND FILLER FOR REMAINING COUNT 
0000000¢ 31 CHRTBLSIZ = . = CHRTBL 
28 5 0 38 SPCNUM: .ASCII \-%+\ : SPECIAL CHARACTERS TREATED AS NUMERIC 
06008 34 SPCNUMSIZ = . = SPCNUM 
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-SBTTL TEST A CHARACTER FOR CLASS 


v04-00 Page | 
R - 
08 | 
; FUNCTIONAL DESCRIPTION: 


CT N 
A CHARACTE 
7 
F 100 : | 
F 101: THIS ROUTINE IS CALLED TO CLASSIFY AN ASCII CHARATER INTO 
‘os 5 : ONE OF SEVERAL CLASSES. AN ALTERNATE ENTRY PROVIDES LOWER | 
F 33 TO UPPER CASE CONVERSION AS WELL. 
OF 5 ; CALLING SEQUENCE: | 
is : : BSB/JSB CHRSTSTCHR ; TEST THE CHARACTER 
F : ; BSB/JSB CHRSCVT + CONVERT AND TEST 
OOF 110 : INPUT PARAMETERS: | 
000 1 ; R6 CONTAINS ADDRESS OF BYTE TO TEST | 
att 116 : IMPLICIT INPUTS: | 
OOF 116 : STRING IS TERMINATED BY A ZERO BYTE | 
000 118 ; OUTPUT PARAMETERS: | 
OOF 120; RO SET TO "'CHRSK_<CLASS_NAME>"’ IF ONE OF RECOGNIZED CHARACTERS 
OOF 1: ELSE SET TO MINUS 1 
O00F § ; IMPLICIT OUTPUTS: 
D00F 125 : NONE 
000r SF COMPLETION CODES: 
000F 139 NONE | 
000r 131 > SIDE EFFECTS: | 
OOF 1 § : NONE 
OOF 134; 
bor 18a | 
OOF 1 $ CHRSCVT:: : CONVERT TO UPPER CASE | 
61 8F 66 91 OOOF 1 : CMPB ss (R6) , #<*A/A/4*X20> + LOWER CASE A? | 
0D 19 0013 1 BLSS  CHRSTSTC ; BR IF NOT LOWER | 
7A 8F 91 001 140 CMPB ss (R6) , #<*A/2/4*X20> > LOWER CASE 2? | 
14 0019 14 BGTR  CHRSTSTCHR : BR IF NOT LOWER | 
66 20 82 1B 148 SUBB ss #*X 20, (R6) : CONVERT TO UPPER 
2 1 143 BRB CHRSTSTCHR : 
145 CHRSTSTNXT:: ; TEST NEXT CHAR 
566 146 INCL = R6 t ADD ONE TI ADDRESS 
148 CHRSTSTCHR: : : TEST A CHARACTER FOR CLASS 
504 14 CLRL =—_ RO > ASSUME END-OF -LINE 
3 4 150 TSTB —s- (R46) : END-OF -LINE? 
1 2 151 BEQL 908 : BR IF YES 
0 v6 1 5 INCL OR : SET TYPE TO ALPHA 
41 8F 66 A 1 CMPB Ss (RO) .#*A/A/ : CHECK AGAINST LOW LIMIT 


| 
| 
} 
| 
| 


Page 3) 


RSEb=198e B8:75508 LEMIUTE. SRESEnsUa man; 1 


4 


J 


ON SUBROUTINES 


LASS 


we 


nn 
a 
w wo 
—_- = 
ww « 
waiaow 
aeaw 
wt 
—-=zrw bo 
qv<c w 
= a ea Me 
= <xv<a< Vv w 
a > or to) 4) a > 
ad VVauw —- ~- a J 
— w w — <« —- @ oc 
vEva. =e w <> 
w —o—) — ww = = cot 
wn e2za — w —-< = vz 
< ww a wae OF WoO 
4 vu az== Uwe Ww ~@Qo —w aA 
za < —= Vv ecw WO 
az = n2=-2a-a ve <> Zt w 
ow ” YO Weww Oo =< oc 4M 
i <oQwoer-Zz rw @ -@ <a 
_ 100. OVD ww c — =@ 
a"s- RKvouwuda az 2 ue ww w 
= on a —wo “ aun 2H 
~Oc Bwwoewdt S23 Y<—-NWWHMHOOUW> 
wo 4s0O0—Tr [20 5Dt 4 ewe— WIT Wwe uWwOF- 
@Qwdu Zor Ye UL 2 —S £>- &r YP £ 
= <« « w w w Lb 
eWuMuGorw>ounMu «Mute u Feu OMu cw 


w w <«¢& a ww nn <w 
2oectee- Ow tweet tertertevuvucwvvertrtauw 
O2ZOLOOue VOOGVBOVAIOVAON A= Ox QODOV Dun 


= a 
@ 
az Lo 
=) i. 4 
A A a = 
o oOo ” Vv ~ 
NU NM ws . o 
=x x =~ ~n © a 
© < [+ to] — = . 
+ > ww wy . -— 
= EE — »« » 
= «< ™ SS = > @& & <™~ ~ 
xn =~ SS hCUZS oo - <« av A 
= « <« [Ss ) ~~ >= & ~~ @D™ ~ 
<= « « ~a <« «< = @<« Jj< 4 
< w VV AWA < < —) w & < 
2= 2 82 ceo 82 82 2 ~2 «Be pos 
3 x - x= fo a a > @& = Me .- Oo 
Fe Sn Ee en ~ a 
hf OWORHOABOTRHORMOKHORH TOV TOW OW « 
Oetoecoco< &<t OFOCOGOVAOVYfOOLSo-O 
MK O-erN~OOrYRO~M~O-CBr-OBw-Oag-O2sze 
=> a) = 
YiDOIOuODd TVS 9IOOOSG’lSA YOIIOIIBMIIOI 
MAW W8wMV!8 WO MO WOW O>00V8 Cur @ 
HE IE IS JOO SE IE JO ZSZOFZwWOtwZsztw2Zvn 
OL O20 106 027O0O JOFVOECO—-VvOE-a 
Tia A A 
oO So o 
N ~ oa 


TMDOR. WOO — CUM TMNDOR. DOO CUM TNOR. DOO WU 
MNMMNTUNDOODODODOOOOORPF-P_P_P_P-_P_P_PR.R.0O0CD0D 
Ct er el el el ee el ea ee el ee el el ee ee el el oe ee oe 


DOOCOoOOoOSOSoSoOoOSoSooOoOoOSoSo 
COOQOOOOCOSOCOSSSoO 


BENE OK MNOA ELV AOKNIVNOKMOKMOK MUNN 
Orr Or om Oe OnrMe OC —- OC — OO —- VAO 


—MOno0-oacnowa<0acowom-—o 
SS SSSASSSSSSSNSASSNVSSSASSSA 


—0 
m 
“ao 
=x 
> 
bd 


SDOOQOOoCOCOOCOoCOoOoOOoOoOOoOoOoOoOo 
GOOCCGCGCOCOCOOOOOOOooeo 


DOOOoOOoOoOoOooooo 
SooooooooS Sooo Oooo SSS 


DAA TAPS OEVACODIIOI GIVI GaD 


— 
So 


On 20 00 


Wruons—Wwom 


DISHIGSHVGGSHIGSHSSOSHVSHSIaaD 


K 4 
UBROUTINES 


ACTER MANIPULATION § 15-SEP=1 
CHARACTER FOR CLASS 4-SEP=1 
78 Oo] 
ie } ‘ «SBTTL GET TOKEN 
a ! FUNCTIONAL DESCRIPTION: 
1 

78 ! COMMAND LINE. 
! CALLING SEQUENCE: 
1 BSB/JSB CHRSGETOKEN 
: BSB/JSB CHRSNXTOKEN 
} INPUT PARAMETERS: 
1 


IMPLICIT INPUTS: 


OUTPUT PARAMETERS: 


IMPLICIT OUTPUTS: 


COMPLETION CODES: 


SIDE EFFECTS: 


tt nd od ond nd ed ed end mb HOODOO OOOCOCOCOOOOOOOOO@WMM@@oa - 


PPAR SO OODNA MNES UIN @ OS OBNAUES WN OC OONAUE WN (OOD NOULWNQWOONOus mm 


Bee Se Se Ge Ge Se Ge Ge Ge Ge Se Se Se Se Se Ge Ge Ge Ge Ge Se Ge Se Ge Se Ge Se Ge See Se See Ge Sete 
+ 


NONE 
eENABL LSB 
CHRSGE TOKEN: : 
ECL R6 
CHRSNXTOKEN: : 
BS8B CHRSNXTNBLK 
MOVAB (R6) ,R4 
DECL 
10$: MOVAB 1(R6),R3 
BSBB Os CHRSTSTNXT 
BEQL 4 
CAPS 


RO, #CHRSK_BLANK 
10$ ¥ 


408 
CHRSNXTNBLK 
R4,R5 


Sow we 
tyr 

oo 

eked 
z2vrencr 
SSsr' . 
oowr 

oa, 


be 93:15:00 


R6 IS ADVANCED TO THE FIRST NONE B 
R3,R4 ARE A DESCRIPTOR TO THE TOKE 


AX/VMS Macro Vv04-00 
CLIUTL.SRCJCHRSUB.MAR; 1 


THIS ROUTINE IS CALLED TO PARSE THE NEXT TOKEN FROM THE 


INE 
EXT CHARACTER 


m 
a) 
2 


R6 CONTAINS ADDRESS OF NEXT BYTE ON THE LINE 


STRING IS TERMINATED BY ZERO BYTE 


—_ CHARACTER AFTER THE TOKEN. 


"2" BIT IS SET IF ZERO LENGTH TOKEN IS PARSED. 


RO IS SET TO THE TYPE OF THE CHARACTER 


GET TOKEN 
BACK UP ONE FOR SKIP 
FOREN ath CURRENT CHAR 


ND 
SET START ADDRESS OF TOKEN 
ACK UP SO SKIP WILL START HERE 
SET ADDRESS OF NEXT BYTE 
LOOK AT NEXT CHAR 
OF LINE 
gop FOR TOKEN? 


AWNO-<@ 
mMm—K DP wD 


F 
TO NON-BLANK 
A oie OF TOKEN 


YES-KEEP LOOKING FOR TERMIATOR 
A SPACE 
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-DSABL LSB 
~SBTTL SET NONE BLANK 


j++ 
: FUNCTIONAL DESCRIPTION: 


THIS ROUTINE IS CALLED TO ADVANCE THE CHARACTER POINTER 
TO THE FIRST NONE BLANK CHARATER ON THE LINE. 


99 24 
99 ‘3 
9 4 
9 44 
a 
at 
8 ‘3 ; CALLING SEQUENCE: 
9 : ; BSB/JSB CHRSSETNB : SET NONE BLANK 
099 38 ; INPUT PARAMETERS: 
2093 i ; R6 CONTAINS ADDRESS OF NEXT BYTE ON THE LINE 
099 257 : IMPLICIT INPUTS: 
0099 38 3 
i 
0099 61 : OUTPUT PARAMETERS: 
$3 e§ ; R6 IS ADVANCED TO THE FIRST NONE BLANK CHARACTER 
099 265 : IMPLICIT OUTPUTS: 
0099 28 3 
i 
0093 9 : COMPLETION CODES: 
0099 4 ; RO = 1 IF MORE DATA ON LINE, 0 IS NO NONE BLANK CHARACTERS 
099 273 : SIDE EFFECTS: 
099 274: 
99 75 3 NONE 
322 6 3 
: F -ENABL LSB 
0 CHRSSETNBLK:: : SET NONE BLANK 
1 LR6 : BACK UP SO SKIP ONE WILL BE NOP 
: CHRSNXTNBLK: : SKIP THEN-THEN NEXT NONE BLANK 
0$: BSBW CHRSTSTNXT : 
4 BEQL : BR IF END-OF-LINE 
5 CMPB = RO, @CHRSK_BLANK : NEXT CHAR BLA 
6 BEQL «6-208 : IF YES*KEEP LOOKING 
MOVL #1,RO : SUCESS 
8 40$:  RSB : ALL DONE 
0 .DSABL LSB 
1 END 


DOADAQAOAAAAAAIAIAAAIAAAGG 
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Si 
1 
; 
1 
1 
1 
01 
01 
01 
¢oeoeoecoeesoesosce + 
! Psect synopsis ! 
poeweeceeesaosence + 
Allocation PSECT No. Attributes 
00000000 ( 0.) 00 ¢ O.) NOPIC USR CON 
QOO000A9 ¢ 169.) 0O1¢ 41.) NOPIC USR CON 
bovoanmosounenae sooner ooeae + 
; Performance indicators ; 
Page faults CPU Time Elapsed Time 


Pass 1 
synbot table sort 


ass 
Symbol iable output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 


t limit was 750 
pages) of virtua $ ode. 
pages of symbol table space allocated to hold 25 non-local and 8 local symbols. 


a BH : 


ages. 
memory were used to buffer the intermediate c 


source Lines were read in Pass 1, producing 11 object records in Pass 2. 
page of virtual memory was used to define 1 macro. 
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NOSHR NOEXE NORD NOWRT NOVEC BY 
RD NOWRT NOVEC BY 
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CHRSUB = CHARACTER MANIPULATION SUBROUTINES 
VAX=-11 Macro Run Statistics 


bem omaoee. 2 Seen aeeemanaacaaa } 


: i Macro Library statistics ! 


eeeceece STeecesosmaeaecen + 


Macro Library name Macros defined 


$255$DUA28: CL gUTE CB aCL UTE. -MLB;1 8 
-3 5SSSDUA Ace SYS. 1 

$255SDUA SYSLIBISTARLET ALB; 2 5 
TOTALS (all Libraries) 


0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:CHRSUB/OBJ=0BJ$:CHRSUB MSRC$: CHRSUB/UPDATE=(ENHS$ : CHRSUB) +EXECML$/LIB+L1B$:CLIUTL/LIB 
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